00100	(DEFPROP FOO
00200	 (LAMBDA (U V W X Y Z)
00300	  (COMMENT THE MAN IN THE GREY FLANNEL SUIT WAS
00400		   (LAMBDA (U V W X Y Z) (CAR (CADR (FOO X (CAR X) (CDDDDDDDD~
00500	DDR X))))) (A B C D E F G H I J K L M N OP Q R S T U V W X Y Z)))
00600	 EXPR)
00700	
00800	(DE (TSTFMT XPR)
00900	    (PROG (LINCNT) (SETQ LINCNT 1) (RETURN (FORMANEXPR XPR))))
01000	
01100	(SETQ BAR
01200	 (QUOTE	(MAPCAR	(FUNCTION (LAMBDA (PAIR)
01300				   (PROG2 (SET (CAR PAIR)
01400					       (INTERN (ASCII (CADR PAIR))))
01500					  (CAR PAIR))))
01600			(QUOTE ((*SP 40) (*TB 11)
01700					 (*CR 15)
01800					 (*LF 12)
01900					 (*VT 13)
02000					 (*FF 14)
02100					 (*CO 54)
02200					 (*PT 56)
02300					 (*LP 50)
02400					 (*RP 51)
02500					 (*SL 57)
02600					 (*AM 33)
02700					 (*AT 100)
02800					 (*RO 177)
02900					 (*COLON 72)
03000					 (*LB 133)
03100					 (*RB 135))))))
03200